
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvCarType
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	7/4/2549 15:32:35	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvCarType
#Region "Internal member variables"
    Private _TypeID As Int32
    Private _TypeName As String
    Private _TypeStatus As Int32
    Private _TCostDay As Double
    Private _TCostHoliday As Double
    Private _TOtday As Double
    Private _TOtHoliday As Double
    Private _TCostDriver As Double
#End Region

    Public Sub New()
        _TypeID = Nothing
        _TypeName = Nothing
        _TypeStatus = Nothing
        _TCostDay = Nothing
        _TCostHoliday = Nothing
        _TOtday = Nothing
        _TOtHoliday = Nothing
        _TCostDriver = Nothing
    End Sub

    Public Sub New(ByVal TypeID As Int32, _
       ByVal TypeName As String, _
       ByVal TypeStatus As Int32, _
       ByVal TCostDay As Double, _
       ByVal TCostHoliday As Double, _
       ByVal TOtday As Double, _
       ByVal TOtHoliday As Double, _
       ByVal TCostDriver As Double)
        _TypeID = TypeID
        _TypeName = TypeName
        _TypeStatus = TypeStatus
        _TCostDay = TCostDay
        _TCostHoliday = TCostHoliday
        _TOtday = TOtday
        _TOtHoliday = TOtHoliday
        _TCostDriver = TCostDriver
    End Sub

#Region "Property"

    Public Property TypeID() As Int32
        Get
            Return _TypeID
        End Get
        Set(ByVal value As Int32)
            _TypeID = value
        End Set
    End Property


    Public Property TypeName() As String
        Get
            Return _TypeName
        End Get
        Set(ByVal value As String)
            _TypeName = value
        End Set
    End Property


    Public Property TypeStatus() As Int32
        Get
            Return _TypeStatus
        End Get
        Set(ByVal value As Int32)
            _TypeStatus = value
        End Set
    End Property


    Public Property TCostDay() As Double
        Get
            Return _TCostDay
        End Get
        Set(ByVal value As Double)
            _TCostDay = value
        End Set
    End Property


    Public Property TCostHoliday() As Double
        Get
            Return _TCostHoliday
        End Get
        Set(ByVal value As Double)
            _TCostHoliday = value
        End Set
    End Property


    Public Property TOtday() As Double
        Get
            Return _TOtday
        End Get
        Set(ByVal value As Double)
            _TOtday = value
        End Set
    End Property


    Public Property TOtHoliday() As Double
        Get
            Return _TOtHoliday
        End Get
        Set(ByVal value As Double)
            _TOtHoliday = value
        End Set
    End Property


    Public Property TCostDriver() As Double
        Get
            Return _TCostDriver
        End Get
        Set(ByVal value As Double)
            _TCostDriver = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvCarTypes
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	7/4/2549 15:32:35	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvCarTypes
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvCarType
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvCarType)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvCarType)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvCarType)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class
